home *** CD-ROM | disk | FTP | other *** search
- <?xml version="1.0" encoding="utf-8" ?>
- <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
- <background>
- <id>8459</id>
- <filler1>0</filler1>
- <bitmap>BMAP_6836.pbm</bitmap>
- <cantDelete> <false /> </cantDelete>
- <showPict> <true /> </showPict>
- <dontSearch> <false /> </dontSearch>
- <link rel="stylesheet" type="text/css" href="stylesheet_3092.css" />
- <part>
- <id>1</id>
- <type>field</type>
- <visible> <true /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <true /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <false /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>40</left>
- <top>19</top>
- <right>468</right>
- <bottom>78</bottom>
- </rect>
- <style>rectangle</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>20</textSize>
- <textStyle>bold</textStyle>
- <textHeight>26</textHeight>
- <name>Book Title</name>
- <script></script>
- </part>
- <part>
- <id>2</id>
- <type>field</type>
- <visible> <true /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <true /> </dontSearch>
- <sharedText> <true /> </sharedText>
- <fixedLineHeight> <false /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>188</left>
- <top>79</top>
- <right>314</right>
- <bottom>96</bottom>
- </rect>
- <style>transparent</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Geneva</font>
- <textSize>9</textSize>
- <textStyle>outline</textStyle>
- <textStyle>bold</textStyle>
- <textHeight>12</textHeight>
- <name></name>
- <script></script>
- </part>
- <part>
- <id>3</id>
- <type>field</type>
- <visible> <true /> </visible>
- <dontWrap> <false /> </dontWrap>
- <dontSearch> <true /> </dontSearch>
- <sharedText> <false /> </sharedText>
- <fixedLineHeight> <false /> </fixedLineHeight>
- <autoTab> <false /> </autoTab>
- <lockText> <true /> </lockText>
- <rect>
- <left>40</left>
- <top>113</top>
- <right>468</right>
- <bottom>294</bottom>
- </rect>
- <style>scrolling</style>
- <autoSelect> <false /> </autoSelect>
- <showLines> <false /> </showLines>
- <wideMargins> <false /> </wideMargins>
- <multipleLines> <false /> </multipleLines>
- <reservedFamily> 0 </reservedFamily>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>left</textAlign>
- <font>Geneva</font>
- <textSize>12</textSize>
- <textStyle>bold</textStyle>
- <textHeight>16</textHeight>
- <name>Table of Contents</name>
- <script>on mouseUp
- if me is empty then
- answer "No recipes to delete!"
- lock screen
- go cd "Table of Contents"
- exit mouseUp
- end if
- if the value of the clickLine is not empty then
- select the clickLine
- put the value of the clickLine into thisChapter
- hide bg button "Abort!"
- answer "Delete chapter" && thisChapter && "and all of its recipes?" with "Abort" or "Proceed"
- if it is "Abort" then
- lock screen
- show bg button "Abort!"
- go cd "Table of Contents"
- exit mouseUp
- end if
- if it is "Proceed" then
- set cursor to watch
- lock screen
- show bg button "Abort!"
- repeat with x = 1 to number of lines of bg fld "Recipes List" of cd thisChapter
- put line x of bg fld "Recipes List" of cd thisChapter into thisRecipe
- go cd thisRecipe
- doMenu "Delete Card"
- end repeat
- go cd thisChapter
- doMenu "Delete Card"
- go cd "Table of Contents"
- unlock screen
- repeat with x = 1 to number of lines of bg fld "Table of Contents"
- if line x of bg fld "Table of Contents" is thisChapter then
- select line x of bg fld "Table of Contents"
- delete line x of bg fld "Table of Contents"
- if last char of bg fld "Table of Contents" is return then delete last char ¬
- of bg fld "Table of Contents"
- exit repeat
- end if
- end repeat
- end if
- end if
- end mouseUp
-
-
- </script>
- </part>
- <part>
- <id>4</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>390</left>
- <top>309</top>
- <right>468</right>
- <bottom>331</bottom>
- </rect>
- <style>rectangle</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <true /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Chicago</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Abort!</name>
- <script>on mouseUp
- lock screen
- go cd "Table of Contents"
- end mouseUp</script>
- </part>
- <content>
- <layer>background</layer>
- <id>2</id>
- <text>Table of Contents</text>
- </content>
- <name></name>
- <script></script>
- </background>
-